Loads

Libraries and functions

Warning message in is.na(x[[i]]):
“is.na() applied to non-(list or vector) of type 'environment'”Warning message in rsqlite_fetch(res@ptr, n = n):
“Don't need to call dbFetch() for statements, only for queries”
==========================================================================
*
*  Package WGCNA 1.63 loaded.
*
*    Important note: It appears that your system supports multi-threading,
*    but it is not enabled within WGCNA in R. 
*    To allow multi-threading within WGCNA with all available cores, use 
*
*          allowWGCNAThreads()
*
*    within R. Use disableWGCNAThreads() to disable threading if necessary.
*    Alternatively, set the following environment variable on your system:
*
*          ALLOW_WGCNA_THREADS=<number_of_processors>
*
*    for example 
*
*          ALLOW_WGCNA_THREADS=4
*
*    To set the environment variable in linux bash shell, type 
*
*           export ALLOW_WGCNA_THREADS=4
*
*     before running R. Other operating systems or shells will
*     have a similar command to achieve the same aim.
*
==========================================================================


Allowing multi-threading with up to 4 threads.
[1] "preparing gene to GO mapping data..."
[1] "preparing IC data..."
[1] "preparing gene to GO mapping data..."
[1] "preparing IC data..."
[1] "preparing gene to GO mapping data..."
[1] "preparing IC data..."

Data

Extraction of the differentially expressed genes

Extract DEG between Middle-aged and Young, Old and Young and Old and Middle-aged for the different sex and microbiota combinations

  • Threshold for adjusted p-value: 0.05
  • Threshold for adjusted significant fold change: 1.5

Table with the factors

InfoInterceptMale vs FemaleGF vs SPFMiddle-aged vs YoungOld vs YoungMale & Middle-agedMale & OldMale & GFGF & Middle-agedGF & Old
Middle-aged vs Young (Female, SPF)0 0 0 1 0 0 0 0 0 0
Middle-aged vs Young (Female, GF) 0 0 0 1 0 0 0 0 1 0
Middle-aged vs Young (Male, SPF) 0 0 0 1 0 1 0 0 0 0
Middle-aged vs Young (Male, GF) 0 0 0 1 0 1 0 0 1 0
Old vs Young (Female, SPF) 0 0 0 0 1 0 0 0 0 0
Old vs Young (Female, GF) 0 0 0 0 1 0 0 0 0 1
Old vs Young (Male, SPF) 0 0 0 0 1 0 1 0 0 0
Old vs Young (Male, GF) 0 0 0 0 1 0 1 0 0 1
Old vs Middle-aged (Female, SPF) 0 0 0 -1 1 0 0 0 0 0
Old vs Middle-aged (Female, GF) 0 0 0 -1 1 0 0 0 -1 1
Old vs Middle-aged (Male, SPF) 0 0 0 -1 1 -1 1 0 0 0
Old vs Middle-aged (Male, GF) 0 0 0 -1 1 -1 1 0 -1 1

Extract the log2FC of the DEG

Stats about the DEG

Using type as id variables
Middle-aged vs Young (Female, SPF)Middle-aged vs Young (Female, GF)Middle-aged vs Young (Male, SPF)Middle-aged vs Young (Male, GF)Old vs Young (Female, SPF)Old vs Young (Female, GF)Old vs Young (Male, SPF)Old vs Young (Male, GF)Old vs Middle-aged (Female, SPF)Old vs Middle-aged (Female, GF)Old vs Middle-aged (Male, SPF)Old vs Middle-aged (Male, GF)
All DEG (Wald padj < 0.05)12051038213 215 1223156232243066337 366 35542910
All over-expressed genes (Wald padj < 0.05 & FC > 0) 806 655176 134 814 86318371558192 187 19111486
All under-expressed genes (Wald padj < 0.05 & FC < 0) 399 383 37 81 409 69913871508145 179 16431424
DEG (Wald padj < 0.05 & abs(FC) >= 1.5) 706 526179 156 783 93817001756207 234 13471418
Over-expressed genes (Wald padj < 0.05 & FC >= 1.5) 572 404159 108 666 612 876 581155 134 505 364
Under-expressed genes (Wald padj < 0.05 & FC <= -1.5) 134 122 20 48 117 326 8241175 52 100 8421054

All DEG (Wald padj < 0.05)

DEG (Wald padj < 0.05 & abs(FC) > 1.5)

pdf: 2

DEG with significant p-value and fold change

Log2FC

ComparisonSexMicrobiota
Middle-aged vs Young (Female, SPF)Middle-aged VS YoungFemale SPF
Middle-aged vs Young (Female, GF)Middle-aged VS YoungFemale GF
Middle-aged vs Young (Male, SPF)Middle-aged VS YoungMale SPF
Middle-aged vs Young (Male, GF)Middle-aged VS YoungMale GF
Old vs Young (Female, SPF)Old VS Young Female SPF
Old vs Young (Female, GF)Old VS Young Female GF
Old vs Young (Male, SPF)Old VS Young Male SPF
Old vs Young (Male, GF)Old VS Young Male GF
Old vs Middle-aged (Female, SPF)Old VS Middle-aged Female SPF
Old vs Middle-aged (Female, GF)Old VS Middle-aged Female GF
Old vs Middle-aged (Male, SPF)Old VS Middle-aged Male SPF
Old vs Middle-aged (Male, GF)Old VS Middle-aged Male GF

Z-score

Column order: microbiota - sex - age

Column order: sex - microbiota - age

pdf: 2

Co-expression (WGCNA)

Z-score in modules

Column order: microbiota - sex - age

Column order: sex - microbiota - age

Genes in modules

Enrichment analysis

Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”Warning message in pcls(G):
“initial point very close to some inequality constraints”

GO analysis

Warning message in stack.default(getgo(l$sign_fc_deg$genes, "mm10", "geneSymbol")):
“non-vector elements will be ignored”

Biological process

Dot-plot with the 10 most significant p-values for the different comparison

Using category as id variables
Using category, type as id variables
Warning message:
“Column `variable` joining factors with different levels, coercing to character vector”

Cellular components

Dot-plot with the most over-represented CC GO (20 most significant p-values for the different comparison)

Using category as id variables
Using category, type as id variables
Warning message:
“Column `variable` joining factors with different levels, coercing to character vector”

Molecular functions

Dot-plot with the most over-represented MF GO (20 most significant p-values for the different comparison)

Using category as id variables
Using category, type as id variables
Warning message:
“Column `variable` joining factors with different levels, coercing to character vector”

GO networks

The edge colors in the tree represent the relationship between two nodes. - green: positively regulates

  • red: negatively regulates
  • black: regulates
  • blue: is a
  • light blue: part of

GO Trees at "../results/dge/age-effect/age-microbiote-sex/go"

[1] "Middle-aged vs Young (Female, SPF)"
Warning message:
“Column `values` has different attributes on LHS and RHS of join”Warning message:
“Column `values` has different attributes on LHS and RHS of join”
Error in mutate_impl(.data, dots): Evaluation error: factor level [213] is duplicated.
Traceback:

1. get_GO_network_col_all_ont(deg$GO, comp)
2. over %>% union(under) %>% union(white) %>% mutate(category = factor(category, 
 .     levels = l$cat)) %>% arrange(color)
3. withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
4. eval(quote(`_fseq`(`_lhs`)), env, env)
5. eval(quote(`_fseq`(`_lhs`)), env, env)
6. `_fseq`(`_lhs`)
7. freduce(value, `_function_list`)
8. function_list[[i]](value)
9. mutate(., category = factor(category, levels = l$cat))
10. mutate.tbl_df(., category = factor(category, levels = l$cat))
11. mutate_impl(.data, dots)

KEGG pathways

Pathway graphs available at ../results/dge/age-effect/age_type_gender/over_repr_kegg/

Pathway graphs available at ../results/dge/age-effect/age_type_gender/under_repr_kegg/